home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / haziran / 20 / setup.exe / {app} / plugins / XQ Modem Options.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-03-28  |  1.3 KB  |  53 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="1"
  3. "COUNT"="4"
  4. "UIPATH"="Hardware\Modem"
  5. "NAME"="Init Commands"
  6. "VERSION"="1.22"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Command 1"
  9. "TEXT 2"="Command 2"
  10. "TEXT 3"="Command 3"
  11. "TEXT 4"="Command 4"
  12. "DESCRIPTION 1"="Here you can change the commands that are sent to your modem before dialing easily."
  13. "DESCRIPTION 2"="Please include <cr> at the end of the command string. This will signal the init command to the modem as the last instruction on the line. Your modem might get confused if you don't include the <cr>"
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18. "COMMENT 2"="Thanks to Anthony Perez for the <cr> tip"
  19.  
  20.  
  21. Sub Plugin_Initialize 
  22.  if RegPathExists("HKLM\System\CurrentControlSet\Services\Class\Modem\0000\Init") then
  23.  
  24.   for i=1 to 4
  25.    s=RegReadValue("HKLM\System\CurrentControlSet\Services\Class\Modem\0000\Init\" & i) 
  26.    SetUIElement i,s
  27.   next 
  28.  
  29.  else
  30.   Disable
  31.  end if
  32. End Sub
  33.  
  34.  
  35. Sub Plugin_CheckData(ElementIndex)
  36. End Sub
  37.  
  38.  
  39.  
  40. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  41.  for i=1 to 4
  42.   s=GetUIElement(i)
  43.   Call RegWriteValue("HKLM\System\CurrentControlSet\Services\Class\Modem\0000\Init\" & i,s,1) 
  44.  next 
  45. End Sub
  46.  
  47.  
  48. Sub Plugin_Terminate 
  49. End Sub
  50.  
  51.  
  52.  
  53.